object MalzemeHareketleriF: TMalzemeHareketleriF
  Left = 129
  Top = 151
  Width = 1018
  Height = 509
  Caption = 'Malzeme Hareketleri'
  Color = clBtnFace
  Font.Charset = TURKISH_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poDefaultPosOnly
  OnClose = FormClose
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object cxGrid1: TcxGrid
    Left = 0
    Top = 0
    Width = 1010
    Height = 450
    Align = alClient
    PopupMenu = PopupMenu1
    TabOrder = 0
    LookAndFeel.NativeStyle = True
    object cxGrid1DBTableView1: TcxGridDBTableView
      OnKeyPress = cxGrid1DBTableView1KeyPress
      NavigatorButtons.ConfirmDelete = False
      OnCustomDrawCell = cxGrid1DBTableView1CustomDrawCell
      DataController.DataSource = MalzemeHareketleriQS
      DataController.Filter.Active = True
      DataController.Filter.AutoDataSetFilter = True
      DataController.Summary.DefaultGroupSummaryItems = <
        item
          Format = 'Toplam Miktar : ###.###'
          Kind = skSum
          FieldName = 'miktar'
          Column = cxGrid1DBTableView1miktar
        end
        item
          Format = 'Toplam Fi'#351' : ###.###'
          Kind = skCount
          FieldName = 'fisno'
          Column = cxGrid1DBTableView1fisno
        end>
      DataController.Summary.FooterSummaryItems = <
        item
          Format = '###.###'
          Kind = skSum
          FieldName = 'miktar'
          Column = cxGrid1DBTableView1miktar
        end>
      DataController.Summary.SummaryGroups = <>
      OptionsBehavior.IncSearch = True
      OptionsData.CancelOnExit = False
      OptionsData.Deleting = False
      OptionsData.DeletingConfirmation = False
      OptionsData.Editing = False
      OptionsData.Inserting = False
      OptionsSelection.CellSelect = False
      OptionsSelection.UnselectFocusedRecordOnExit = False
      OptionsView.ColumnAutoWidth = True
      OptionsView.Footer = True
      Styles.StyleSheet = dm.tvssDevExpress
      OnColumnHeaderClick = cxGrid1DBTableView1ColumnHeaderClick
      object cxGrid1DBTableView1tarih: TcxGridDBColumn
        Caption = 'Tarih'
        DataBinding.FieldName = 'tarih'
        Width = 64
      end
      object cxGrid1DBTableView1fisno: TcxGridDBColumn
        Caption = 'Fi'#351' No'
        DataBinding.FieldName = 'fisno'
        Width = 63
      end
      object cxGrid1DBTableView1StokKodu: TcxGridDBColumn
        Caption = 'Stok Kodu'
        DataBinding.FieldName = 'stokkodu'
        Width = 196
      end
      object cxGrid1DBTableView1tipi: TcxGridDBColumn
        Caption = 'Fi'#351' Tipi'
        DataBinding.FieldName = 'tipix'
        PropertiesClassName = 'TcxImageComboBoxProperties'
        Properties.ImmediatePost = True
        Properties.ImmediateUpdateText = True
        Properties.Items = <
          item
            Description = 'Fatura Giri'#351
            Value = 'FG'
          end
          item
            Description = 'Fatura '#199#305'k'#305#351
            Value = 'FC'
          end
          item
            Description = 'Sat'#305#351' '#304'ade'
            Value = 'SI'
          end
          item
            Description = 'Al'#305#351' '#304'ade'
            Value = 'AI'
          end
          item
            Description = 'Giri'#351' Belgesi'
            Value = 'GB'
          end
          item
            Description = #199#305'k'#305#351' Belgesi'
            Value = 'CB'
          end
          item
            Description = #220'retim Giri'#351
            Value = '01'
          end
          item
            Description = 'RMA Gri'#351
            Value = '02'
          end
          item
            Description = 'Say'#305'm Fazlas'#305
            Value = '03'
          end
          item
            Description = 'Sarf'
            Value = '21'
          end
          item
            Description = 'RMA '#199#305'k'#305#351
            Value = '22'
          end
          item
            Description = 'Say'#305'm Eksi'#287'i'
            Value = '23'
          end
          item
            Description = 'Depo Transfer'
            Value = '61'
          end
          item
            Description = 'Ters '#220'retim Fi'#351'i'
            Value = '81'
          end>
        Properties.Revertable = True
        Width = 81
      end
      object cxGrid1DBTableView1miktar: TcxGridDBColumn
        Caption = 'Miktar'
        DataBinding.FieldName = 'miktar'
        Width = 51
      end
      object cxGrid1DBTableView1islem: TcxGridDBColumn
        Caption = #304#351'lem'
        DataBinding.FieldName = 'islem'
        Width = 51
      end
      object cxGrid1DBTableView1ambar: TcxGridDBColumn
        Caption = 'Ambar'
        DataBinding.FieldName = 'ambar'
        PropertiesClassName = 'TcxLookupComboBoxProperties'
        Properties.KeyFieldNames = 'id'
        Properties.ListColumns = <
          item
            FieldName = 'DepoAdi'
          end>
        Properties.ListSource = dm.AmbarQS
        Width = 130
      end
      object cxGrid1DBTableView1FirmaAdi: TcxGridDBColumn
        Caption = 'Firma Ad'#305
        DataBinding.FieldName = 'FirmaAdi'
        Width = 224
      end
      object cxGrid1DBTableView1UretimEmriNo: TcxGridDBColumn
        Caption = 'Emir No'
        DataBinding.FieldName = 'UretimEmriNo'
        Width = 102
      end
      object cxGrid1DBTableView1SatirTipi: TcxGridDBColumn
        Caption = 'Sat'#305'r Tipi'
        DataBinding.FieldName = 'LineType'
        PropertiesClassName = 'TcxImageComboBoxProperties'
        Properties.Items = <
          item
            Description = 'Ger'#231'ek Sat'#305'r'
            ImageIndex = 0
            Value = 0
          end
          item
            Description = 'Karma Sat'#305'r'
            Value = 6
          end
          item
            Description = 'Stok Bile'#351'en'
            Value = 7
          end>
      end
      object cxGrid1DBTableView1FisOzelKod: TcxGridDBColumn
        Caption = 'Fi'#351' '#214'zel Kodu'
        DataBinding.FieldName = 'FisOzelKod'
      end
    end
    object cxGrid1Level1: TcxGridLevel
      GridView = cxGrid1DBTableView1
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 450
    Width = 1010
    Height = 32
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    DesignSize = (
      1010
      32)
    object BitBtn1: TBitBtn
      Left = 927
      Top = 4
      Width = 78
      Height = 25
      Anchors = [akTop, akRight]
      Caption = 'Kapat'
      TabOrder = 0
      OnClick = BitBtn1Click
    end
    object bexport: TBitBtn
      Left = 119
      Top = 4
      Width = 105
      Height = 25
      Caption = 'Dosyaya Yaz'
      TabOrder = 1
      OnClick = bexportClick
    end
    object byazdir: TBitBtn
      Left = 233
      Top = 4
      Width = 88
      Height = 25
      Caption = 'Yazd'#305'r'
      TabOrder = 2
      OnClick = byazdirClick
    end
    object bincele: TBitBtn
      Left = 7
      Top = 4
      Width = 105
      Height = 25
      Caption = #304'ncele'
      TabOrder = 3
      OnClick = binceleClick
    end
  end
  object MalzemeHareketleriQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    CommandTimeout = 3000
    Parameters = <
      item
        Name = 'stokkod1'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = 4120
      end
      item
        Name = 'stokkod2'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = 4120
      end
      item
        Name = 'stokkod3'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = 4120
      end
      item
        Name = 'stokkod4'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = 4120
      end>
    SQL.Strings = (
      '('
      
        'select dbo.getstokkodu(stokkod) as stokkodu,tarih,Fatura.bilisno' +
        ' as fisno,fatura.tipi as tipix,stokkod,miktar,islem=(case when i' +
        'slem='#39'+'#39' then '#39'G'#39' else '#39'C'#39' end),ambar,null as UretimEmriNo,Firma' +
        'Adi=(select FirmaAdi from Cari where Cari.Carikod=Fatura.carikod' +
        '),LineType=isnull(LineType,0),FisOzelKod='#39#39' from Fatura,fathar w' +
        'here Fatura.bilisno=fathar.bilisno and stokkod =:stokkod1 and is' +
        'lem is not null'
      'union all'
      
        'select dbo.getstokkodu(stokkod) as stokkodu,tarih,str(StokFisi.i' +
        'd)  as fisno,fistipi as tipix,stokkod,miktar,islem=(case when is' +
        'lem='#39'+'#39' then '#39'G'#39' else '#39'C'#39' end),ambar=(case when StokFisiHar.gamb' +
        'ar is null then StokFisiHar.cambar else StokFisiHar.gambar end),' +
        'UretimEmriNO,null as FirmaAdi,LineType=0,FisOzelKod=Stokfisi.Tip' +
        'i from stokfisihar,Stokfisi where StokFisi.id=StokFisihar.stokFi' +
        'siid and stokkod =:stokkod2 and isnull(Stokfisi.StokEtkileme,0)=' +
        '0 and islem is not null and islem<>'#39'*'#39
      'union all'
      
        'select dbo.getstokkodu(stokkod) as stokkodu,tarih,str(StokFisi.i' +
        'd)  as fisno,fistipi as tipix,stokkod,miktar,'#39'C'#39' as islem,StokFi' +
        'siHar.cambar as ambar,null as UretimEmriNo,null as FirmaAdi,Line' +
        'Type=0,FisOzelKod=Stokfisi.Tipi from stokfisihar,Stokfisi where ' +
        'StokFisi.id=StokFisihar.stokFisiid and isnull(Stokfisi.StokEtkil' +
        'eme,0)=0 and stokkod =:stokkod3 and islem='#39'*'#39
      'union all'
      
        'select dbo.getstokkodu(stokkod) as stokkodu,tarih,str(StokFisi.i' +
        'd)  as fisno,fistipi as tipix,stokkod,miktar,'#39'G'#39' as islem,StokFi' +
        'siHar.gambar as ambar,null as UretimEmriNo,null as FirmaAdi,Line' +
        'Type=0,FisOzelKod=Stokfisi.Tipi from stokfisihar,Stokfisi where ' +
        'StokFisi.id=StokFisihar.stokFisiid and isnull(Stokfisi.StokEtkil' +
        'eme,0)=0 and stokkod =:stokkod4 and islem='#39'*'#39
      ')'
      'order by tarih,tipix,fisno')
    Left = 399
    Top = 80
  end
  object MalzemeHareketleriQS: TDataSource
    DataSet = MalzemeHareketleriQ
    Left = 272
    Top = 80
  end
  object dxComponentPrinter: TdxComponentPrinter
    CurrentLink = dxComponentPrinterLink
    PreviewOptions.PreviewBoundsRect = {000000000000000000040000E4020000}
    Version = 0
    Left = 472
    Top = 240
    object dxComponentPrinterLink: TdxGridReportLink
      Active = True
      Component = cxGrid1
      PrinterPage.DMPaper = 1
      PrinterPage.Footer = 6350
      PrinterPage.Header = 6350
      PrinterPage.Margins.Bottom = 12700
      PrinterPage.Margins.Left = 12700
      PrinterPage.Margins.Right = 12700
      PrinterPage.Margins.Top = 12700
      PrinterPage.PageFooter.Font.Charset = DEFAULT_CHARSET
      PrinterPage.PageFooter.Font.Color = clWindowText
      PrinterPage.PageFooter.Font.Height = -11
      PrinterPage.PageFooter.Font.Name = 'Tahoma'
      PrinterPage.PageFooter.Font.Style = []
      PrinterPage.PageHeader.Font.Charset = DEFAULT_CHARSET
      PrinterPage.PageHeader.Font.Color = clWindowText
      PrinterPage.PageHeader.Font.Height = -11
      PrinterPage.PageHeader.Font.Name = 'Tahoma'
      PrinterPage.PageHeader.Font.Style = []
      PrinterPage.PageSize.X = 215900
      PrinterPage.PageSize.Y = 279400
      PrinterPage._dxMeasurementUnits_ = 0
      PrinterPage._dxLastMU_ = 2
      ReportDocument.Caption = 'New Report'
      ReportDocument.CreationDate = 41851.785619212960000000
      ReportTitle.Font.Charset = DEFAULT_CHARSET
      ReportTitle.Font.Color = clWindowText
      ReportTitle.Font.Height = -19
      ReportTitle.Font.Name = 'Times New Roman'
      ReportTitle.Font.Style = [fsBold]
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Times New Roman'
      Font.Style = []
      OptionsCards.Shadow.Color = clBlack
      OptionsExpanding.ExpandGroupRows = True
      OptionsExpanding.ExpandMasterRows = True
      OptionsView.FilterBar = False
      BuiltInReportLink = True
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 144
    Top = 160
    object ncele1: TMenuItem
      Caption = #304'ncele'
      OnClick = binceleClick
    end
    object retimEmri1: TMenuItem
      Caption = #220'retim Emri'
      OnClick = retimEmri1Click
    end
  end
end
